home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / Netobj / netobj / t2.z / deleteMessage.cgi < prev    next >
Encoding:
Text File  |  1997-04-29  |  940 b   |  61 lines
  1.  
  2.  
  3. $PARENT=1;
  4.  
  5. sub lock{
  6. if ($flock_exists == 1){
  7.     local ($file_handle);
  8.     foreach $file_handle (@_){
  9.         flock($file_handle, 2);
  10.         }
  11.     }
  12. }
  13.  
  14. sub unlock{
  15. if ($flock_exists == 1){
  16.     local ($file_handle);
  17.     foreach $file_handle (@_){
  18.         flock($file_handle, 8);
  19.         }
  20.     }
  21. }
  22.  
  23. sub cleanMessage{
  24.     select(STDOUT);
  25.     print "Content-type: text/html\n\n";
  26.     if ($ENV{'QUERY_STRING'} == ''){
  27.     select(STDOUT);
  28.     print "<html><head>oh no!</head>Must provide an argument!</html>"; 
  29.     }
  30.     $inp = "../message/".$ENV{'QUERY_STRING'};
  31.     $inp2 = "message/".$ENV{'QUERY_STRING'};
  32.     unlink $inp;
  33.     open(IND,"+ ../message/bbs-data.html");
  34.     lock(IND);
  35.  
  36.     #locate string position
  37.    
  38. #    while($cool = <IND>){
  39.     while(<IND>){
  40. #    if (<IND> =~ $inp2){
  41.         
  42. #    }
  43. #    else {
  44.         print;
  45. #    }
  46.     }
  47.     #delete line from file
  48.  
  49.     close(IND);
  50.  
  51. }
  52.  
  53.  
  54. &cleanMessage;
  55.  
  56. select(STDOUT);
  57.  
  58. print <<"END";
  59.  
  60. END
  61.